home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO038A.dsk / V.INF.bas < prev   
BASIC Source File  |  2012-02-16  |  12KB  |  280 lines
  1. 100  REM    V.INF
  2. 110 RO = 0:CL = 0
  3. 120  ON PL GOTO 130,140
  4. 130 F4 = 6: GOTO 150
  5. 140 F4 = 1
  6. 150 TR = HX%(AX,1)
  7. 152  IF TR >5  THEN TR = TR -5: GOTO 152
  8. 155  IF TR = 5  THEN 720
  9. 160  GOSUB 330
  10. 170  IF TU = 3  AND TR = 5  THEN 800
  11. 180  REM    EXECUTE
  12. 190  GOSUB 1100
  13. 191  REM    LOSE MORALE AFTER ARTY
  14. 192  IF PL = 1  AND (TU = 4  OR TU = 5)  AND SF = 1  AND AY% >6  THEN PB(D0,2) = PB(D0,2) -2
  15. 194  IF PL = 2  AND (TU = 4  OR TU = 5)  AND SF = 1  AND AY% >6  THEN PA(D0,2) = PA(D0,2) -2
  16. 196  IF PL = 1  AND (SF < >1)  AND PB(D0,1) <.7  THEN PA(N,2) = PA(N,2) +2
  17. 198  IF PL = 2  AND (SF < >1)  AND PA(D0,1) <.7  THEN PB(N,2) = PB(N,2) +2
  18. 200  IF TU = 3  AND RO = 6  THEN  GOTO 280
  19. 210  IF RO < >5  THEN  GOTO 2750
  20. 220  ON PL GOTO 230,240
  21. 230 PA(N,2) = PA(N,2) +1: GOTO 250
  22. 240 PB(N,2) = PB(N,2) +1: GOTO 250
  23. 250  IF RO = 5  AND TR < >5  THEN  GOSUB 2430
  24. 260  REM    RETURN TO PLATOON PROG
  25. 270  GOTO 2750
  26. 280  ON PL GOTO 290,310
  27. 290 RO = 5:PB(D0,1) = 0:PA(N,2) = PA(N,2) +1:
  28. 300  GOTO 250
  29. 310 RO = 5:PA(D0,1) = 0:PB(N,2) = PB(N,2) +1:
  30. 320  GOTO 250
  31. 330  REM    NEW INF 1+5+3
  32. 340 E = 265
  33. 350 F = 125
  34. 360 F1 = 0
  35. 370  IF TR >1  THEN E = 230:F1 = 1: GOTO 430
  36. 380  HCOLOR= F4
  37. 390  GOSUB 530
  38. 400  HCOLOR= 0
  39. 410  GOSUB 530
  40. 420 E = E -13
  41. 430  HCOLOR= F4
  42. 440  GOSUB 610
  43. 450  HCOLOR= 0
  44. 460  GOSUB 610
  45. 470 E = E -18
  46. 480 F1 = F1 +1: IF F1 <4  THEN 380
  47. 490  HCOLOR= F4
  48. 500  GOSUB 650
  49. 510  HCOLOR= 3: GOSUB 710
  50. 520  RETURN 
  51. 530  REM    NEW INF 1
  52. 540  HPLOT E +7,F -7 TO E +10,F -4 TO E +9,F -7 TO E +2,F -5 TO E +3,F -4 TO E +10,F -6 TO E +1,F -6 TO E,F -7 TO E +3,F -7 TO E +1,F -9 TO E -5,F -7 TO E -2,F -3 TO E -4,F -1 TO E -1,F -2 TO E -2,F -5
  53. 550  HPLOT E -1,F -3 TO E -4,F -8 TO E +1,F -11 TO E +1,F -10 TO E -3,F -10 TO E -3,F -16 TO E -2,F -16 TO E -2,F -8 TO E -1,F -8 TO E +1,F -16 TO E,F -16 TO E,F -11 TO E -4,F -11 TO E -4,F -16
  54. 560  HPLOT E -5,F -16 TO E -5,F -9 TO E -11,F -9 TO E -11,F -10 TO E -6,F -10 TO E -6,F -16 TO E -7,F -15 TO E -7,F -10
  55. 570  HPLOT E -9,F -17 TO E -11,F -17 TO E -11,F -18 TO E -7,F -18 TO E -7,F -19 TO E -11,F -19 TO E -10,F -20 TO E -8,F -20
  56. 580  RETURN 
  57. 590  REM    NEW INF 5
  58. 600  HCOLOR= 1
  59. 610  HPLOT E -1,F -1 TO E +5,F -1 TO E +5,F +1 TO E +6,F +1 TO E +6,F -2 TO E -1,F -2 TO E -1,F -13 TO E,F -11 TO E,F -3 TO E +1,F -3 TO E +1,F -10 TO E -2,F -14
  60. 620  HPLOT E -2,F -14 TO E -2,F -6 TO E -3,F -6 TO E -3,F -15 TO E -4,F -15 TO E -4,F +1 TO E -7,F +1 TO E -7,F TO E -5,F TO E -5,F -16
  61. 630  HPLOT E -6,F -16 TO E -6,F -11 TO E -7,F -12 TO E -7,F -14: HPLOT E -6,F -8 TO E -6,F -5 TO E -7,F -5 TO E -7,F -6
  62. 640  HPLOT E -10,F -16 TO E -8,F -16 TO E -7,F -17 TO E -11,F -17 TO E -11,F -18 TO E -6,F -18 TO E -6,F -19 TO E -10,F -19 TO E -9,F -20 TO E -7,F -20 TO E -6,F -18: RETURN 
  63. 650 E = 141:F = 125: REM    INF 3
  64. 660  HPLOT E +2,F -14 TO E +6,F -10 TO E +5,F -9 TO E +2,F -12 TO E +2,F -17 TO E +3,F -16 TO E +3,F -14 TO E +1,F -14 TO E +1,F -18 TO E,F -18 TO E,F -12
  65. 670  HPLOT E,F -9 TO E,F -6 TO E -1,F -4 TO E -1,F -18 TO E -2,F -18 TO E -2,F +2: HPLOT E -4,F +2 TO E -1,F +1 TO E -1,F TO E -3,F TO E -3,F -18 TO E -4,F -18 TO E -4,F -1
  66. 680  HPLOT E -5,F -8 TO E -5,F -4 TO E -6,F -2 TO E -6,F -7 TO E -7,F -6 TO E -7,F +2 TO E -10,F +4 TO E -8,F +1 TO E -9,F -3 TO E -5,F -8
  67. 690  HPLOT E -3,F -16 TO E -8,F -13 TO E -11,F -17 TO E -10,F -18 TO E -7,F -13 TO E -4,F -18: HPLOT E -4,F -22 TO E +1,F -22 TO E +1,F -23 TO E -3,F -23
  68. 700  HPLOT E -3,F -23 TO E -2,F -24 TO E,F -24: RETURN 
  69. 710  HPLOT E -3,F -21 TO E,F -21 TO E,F -19 TO E -2,F -19 TO E -3,F -21: RETURN 
  70. 720  REM    INF IN HOLE
  71. 730  HCOLOR= F4
  72. 740  HPLOT 139,109 TO 140,109 TO 142,110 TO 137,110 TO 136,111 TO 145,111 TO 145,112 TO 136,112 TO 136,113 TO 145,113
  73. 750  HCOLOR= 3
  74. 760  HPLOT 137,114 TO 142,114 TO 142,115 TO 137,115 TO 138,116 TO 141,116
  75. 770  HCOLOR= F4
  76. 780  HPLOT 133,118 TO 134,117 TO 142,117 TO 141,118 TO 140,118
  77. 790  GOTO 170
  78. 800  REM    APC V.DEF POS
  79. 810  FOR ST = 1 TO AM
  80. 820  FOR TM = 1 TO 12
  81. 830 SH =  PEEK(SN) + PEEK(SN)
  82. 840  NEXT TM
  83. 850 X =  INT((10 +(4 *TR)) * RND(1)) +1
  84. 860  HCOLOR= 3
  85. 870  ON X GOSUB 920,930,940,950,960,970,980,1000,1030,1040,1050,990
  86. 880  GOSUB 920
  87. 890  NEXT ST
  88. 900  IF RO = 5  THEN  HCOLOR= 0: HPLOT 139,109 TO 140,109 TO 142,110 TO 137,110 TO 136,111 TO 145,111 TO 145,112 TO 136,112 TO 136,113 TO 145,113
  89. 910  GOTO 2750
  90. 920 E = 135:F = 129: GOTO 1060
  91. 930 E = 133:F = 131: GOTO 1060
  92. 940 E = 129:F = 129: GOTO 1060
  93. 950 E = 140:F = 126: GOTO 1060
  94. 960 E = 145:F = 130: GOTO 1060
  95. 970 E = 147:F = 126: GOTO 1060
  96. 980 E = 133:F = 117: GOTO 1060
  97. 990 E = 151:F = 112: GOTO 1060
  98. 1000 E = 140:F = 113:RO = 5:
  99. 1010  IF PL = 1  THEN PB(D0,1) = 0: HCOLOR= 5: GOTO 1060
  100. 1020  IF PL = 2  THEN PA(D0,1) = 0: HCOLOR= 5: GOTO 1060
  101. 1030 E = 147:F = 116: GOTO 1060
  102. 1040 E = 156:F = 129: GOTO 1060
  103. 1050 E = 125:F = 118: GOTO 1060
  104. 1060  HPLOT E,F TO E -3,F -3: HPLOT E,F TO E +4,F -9: HPLOT E,F -2 TO E -2,F -7: HPLOT E,F TO E +5,F -5: HPLOT E,F TO E -3,F -5
  105. 1070  HCOLOR= 0
  106. 1080  HPLOT E,F TO E -3,F -3: HPLOT E,F TO E +4,F -9: HPLOT E,F -2 TO E -2,F -7: HPLOT E,F TO E +5,F -5: HPLOT E,F TO E -3,F -5
  107. 1090  RETURN 
  108. 1100  REM    EXECUTE
  109. 1110 RO = 0
  110. 1120  ON SE GOTO 1130,1290
  111. 1130  REM    MG
  112. 1140  HCOLOR= 5
  113. 1150  FOR ST = 1 TO AM
  114. 1160  FOR TM = 1 TO 10
  115. 1170 SH =  PEEK(SN) + PEEK(SN)
  116. 1180  NEXT TM
  117. 1190  IF TR = 5  AND TU < >3  THEN  GOTO 1220
  118. 1200 X =  INT((15 +(5 *TR)) * RND(1))
  119. 1210  ON X GOSUB 1670,1750,1850
  120. 1220  NEXT ST
  121. 1230  IF TU = 2  OR TU = 3  THEN  RETURN 
  122. 1240  ON PL GOTO 1250,1270
  123. 1250 PA(N,7) = PA(N,7) -AM
  124. 1260  RETURN 
  125. 1270 PB(N,7) = PB(N,7) -AM
  126. 1280  RETURN 
  127. 1290  REM    CANNON,LAW
  128. 1300  IF TU = 4  OR TU = 5  THEN 2240
  129. 1305  IF MN = 1  THEN 2240: REM    MINES
  130. 1310  CALL 826
  131. 1340 RN =  INT((3 *TR) * RND(1)) +1
  132. 1350  ON RN GOSUB 1370,1640,1540,1540,1370,1640,1370,1640,1370,1640,1370,1640,1540,1370,1640,1370,1640,1540,1640
  133. 1360  RETURN 
  134. 1370 E = 125:F = 103: REM    LEFT
  135. 1380  IF TR = 5  THEN F = F +10: GOTO 1990
  136. 1390  ON PL GOTO 1400,1470
  137. 1400  IF TU = 1  THEN PB(D0,1) = PB(D0,1) -.1:RO = 4:PB(D0,2) = PB(D0,2) -2: GOTO 1440
  138. 1410  ON PA(N,8) GOTO 1420,1430
  139. 1420 PB(D0,1) = PB(D0,1) -.1:RO = 4: GOTO 1440
  140. 1430 PB(D0,1) = PB(D0,1) -.2:RO = 4:PB(D0,3) = 1
  141. 1440  IF PB(D0,1) <.7  THEN PB(D0,1) = 0:RO = 17
  142. 1460  GOTO 1990
  143. 1470  IF TU = 1  THEN PA(D0,1) = PA(D0,1) -.1:RO = 4:PA(D0,2) = PA(D0,2) -2: GOTO 1510
  144. 1480  ON PB(N,8) GOTO 1490,1500
  145. 1490 PA(D0,1) = PA(D0,1) -.1:RO = 4: GOTO 1510
  146. 1500 PA(D0,1) = PA(D0,1) -.2:RO = 4:PA(D0,3) = 1
  147. 1510  IF PA(D0,1) <.7  THEN PA(D0,1) = 0:RO = 17
  148. 1520  IF TU = 2  AND SF < >1  THEN PB(N,2) = PB(N,2) +1
  149. 1530  GOTO 1990
  150. 1540 E = 140:F = 125
  151. 1550 RO = 8
  152. 1560  IF TR < >5  THEN F = 130
  153. 1570  ON PL GOTO 1580,1610
  154. 1580 PB(D0,1) = 0:
  155. 1600  GOTO 1990
  156. 1610 PA(D0,1) = 0:
  157. 1630  GOTO 1990
  158. 1640 E = 160:F = 110: REM    RT
  159. 1650  GOTO 1380
  160. 1660  REM    MG EFFECTS
  161. 1670  REM    CHEST WOUND
  162. 1680 RO = 5
  163. 1690  HPLOT E -2,F -15 TO E -1,F -15 TO E -1,F -14 TO E -2,F -14
  164. 1700  ON PL GOTO 1710,1730
  165. 1710 PB(D0,0) = 0:PB(D0,1) = 0:PB(D0,2) = 0:PB(D0,4) = 0
  166. 1720  RETURN : REM    GOTO 3096
  167. 1730 PA(D0,0) = 0:PA(D0,1) = 0:PA(D0,2) = 0:PA(D0,4) = 0:
  168. 1740  RETURN 
  169. 1750  REM    ARM
  170. 1760  IF RO < >5  THEN RO = 6
  171. 1770  HPLOT E +2,F -16 TO E +3,F -16 TO E +3,F -15 TO E +2,F -15
  172. 1780  ON PL GOTO 1790,1820
  173. 1790 PB(D0,7) =  -99:PB(D0,1) = PB(D0,1) -.1:PB(D0,2) = PB(D0,2) -2
  174. 1800  IF PB(D0,1) <.7  THEN PB(D0,1) = 0:RO = 5:
  175. 1810  RETURN 
  176. 1820 PA(D0,7) =  -99:PA(D0,1) = PA(D0,1) -.1:PA(D0,2) = PA(D0,2) -2
  177. 1830  IF PA(D0,1) <.7  THEN PA(D0,1) = 0:RO = 5:
  178. 1840  RETURN 
  179. 1850  REM    LEG
  180. 1860  IF RO < >5  THEN RO = 6
  181. 1870  HPLOT E -6,F -5 TO E -5,F -5 TO E -5,F -4 TO E -6,F -4
  182. 1880  ON PL GOTO 1890,1930
  183. 1890 PB(D0,3) = .5:PB(D0,2) = PB(D0,2) -2
  184. 1900 PB(D0,1) = PB(D0,1) -.1
  185. 1910  IF PB(D0,1) <.7  THEN PB(D0,1) = 0:RO = 5:
  186. 1920  RETURN 
  187. 1930 PA(D0,3) = .5:PA(D0,2) = PA(D0,2) -2
  188. 1940 PA(D0,1) = PA(D0,1) -.1
  189. 1950  IF PA(D0,1) <.7  THEN PA(D0,1) = 0:RO = 5:
  190. 1960  RETURN 
  191. 1970  REM    MISS
  192. 1980  RETURN 
  193. 1990  REM    BLAST
  194. 2000  HCOLOR= 5
  195. 2010  GOSUB 2150
  196. 2020  HCOLOR= 3
  197. 2030  GOSUB 2150
  198. 2040  HCOLOR= 0
  199. 2050  GOSUB 2150
  200. 2060  IF RO = 8  OR RO = 17  THEN  GOSUB 2430
  201. 2070  IF TU = 4  OR TU = 5  THEN  RETURN 
  202. 2080  ON PL GOTO 2090,2120
  203. 2090  IF TU = 1  THEN PA(N,10) = 0
  204. 2100  IF TU = 2  THEN PA(N,8) = 0
  205. 2110  RETURN 
  206. 2120  IF TU = 1  THEN PB(N,10) = 0
  207. 2130  IF TU = 2  THEN PB(N,8) = 0
  208. 2140  RETURN 
  209. 2150  HPLOT E,F TO E +5,F -3: HPLOT E,F TO E -6,F -2: HPLOT E -1,F -1: HPLOT E +1,F -1: HPLOT E -3,F -3: HPLOT E +3,F -3: HPLOT E,F TO E,F -4: HPLOT E -4,F -4: HPLOT E +4,F -5
  210. 2160  FOR TM = 1 TO 20: NEXT TM
  211. 2170  HPLOT E -6,F -5: HPLOT E +6,F -5: HPLOT E -7,F -4: HPLOT E +7,F -3: HPLOT E -6,F -7: HPLOT E +7,F -7: HPLOT E -9,F -8: HPLOT E +8,F -8: HPLOT E -9,F -5: HPLOT E +9,F -6
  212. 2180  HPLOT E -3,F -3: HPLOT E +5,F -2: HPLOT E -6,F -6: HPLOT E +8,F -5: HPLOT E +12,F -9: HPLOT E -16,F -10: HPLOT E +13,F -17
  213. 2190  FOR TM = 1 TO 20: NEXT TM
  214. 2200  HPLOT E -11,F -8: HPLOT E +13,F -9: HPLOT E -13,F -12: HPLOT E +12,F -13: HPLOT E -15,F -14: HPLOT E +14,F -15: HPLOT E -16,F -15: HPLOT E +14,F -16
  215. 2210  RETURN 
  216. 2220  REM    X
  217. 2230  RETURN 
  218. 2240  REM    ARTY BARRAGE
  219. 2244  IF MN = 1  THEN AY% = 3: GOTO 2280
  220. 2245  IF TU = 5  THEN 2280
  221. 2250  ON PL GOTO 2260,2270
  222. 2260 PA(N,8) = 2: GOTO 2280
  223. 2270 PB(N,8) = 2: GOTO 2280
  224. 2280  FOR C = 1 TO AY%
  225. 2290  CALL 826
  226. 2320 X =  INT(18 * RND(1)) +1
  227. 2330  ON X GOSUB 2360,2370,2380,1370,2370,1540,2420,1640,2360,2370,1640,2390,2420,2400,2410,2360,2370,2380,2390
  228. 2340  NEXT C
  229. 2350  RETURN 
  230. 2360 E = 50:F = 90: GOTO 1990
  231. 2370 E = 75:F = 140: GOTO 1990
  232. 2380 E = 100:F = 120: GOTO 1990
  233. 2390 E = 180:F = 120: GOTO 1990
  234. 2400 E = 105:F = 160: GOTO 1990
  235. 2410 E = 85:F = 145: GOTO 1990
  236. 2420 E = 200:F = 100: GOTO 1990
  237. 2430  REM    SHOW ELIM
  238. 2440  IF CL = 1  THEN  RETURN 
  239. 2450  IF TU = 4  OR TU = 5  THEN CL = 1
  240. 2455  IF MN = 1  THEN CL = 1
  241. 2460  REM    ERASE
  242. 2470  HCOLOR= 0
  243. 2480  GOSUB 650
  244. 2490  GOSUB 710
  245. 2500  HPLOT E -2,F -15 TO E -1,F -15 TO E -1,F -14 TO E -2,F -14
  246. 2510  HPLOT E +2,F -16 TO E +3,F -16 TO E +3,F -15 TO E +2,F -15
  247. 2520  HPLOT E -6,F -5 TO E -5,F -5 TO E -5,F -4 TO E -6,F -4
  248. 2530  HCOLOR= F4
  249. 2540  IF RO = 8  THEN  GOSUB 2660
  250. 2550  IF RO = 8  THEN  HCOLOR= 0: GOSUB 2660
  251. 2560  HCOLOR= F4
  252. 2570  HPLOT 137,124 TO 138,124 TO 138,125 TO 137,125 TO 137,126 TO 143,126 TO 142,127 TO 137,127 TO 138,128 TO 140,128 TO 139,129 TO 138,129
  253. 2580  HPLOT 144,131 TO 143,131 TO 143,130 TO 145,130 TO 146,129 TO 143,129 TO 143,128 TO 147,128 TO 148,127 TO 145,127 TO 146,126 TO 149,126 TO 150,125 TO 147,125
  254. 2590  HPLOT 145,125 TO 141,125 TO 142,124 TO 151,124 TO 152,123 TO 144,123 TO 145,122 TO 153,122 TO 154,121 TO 146,121 TO 147,120 TO 155,120
  255. 2600  HPLOT 148,119 TO 160,119 TO 161,120 TO 157,120 TO 157,121 TO 161,121 TO 161,122 TO 158,122 TO 159,123 TO 161,123 TO 162,124 TO 160,124
  256. 2610  HPLOT 161,118 TO 149,118 TO 150,117 TO 159,117 TO 159,116 TO 143,116 TO 143,115 TO 158,115 TO 158,114 TO 151,114 TO 147,115
  257. 2620  HPLOT 160,111 TO 160,113 TO 159,113 TO 159,110 TO 156,110
  258. 2630  HCOLOR= 3
  259. 2640  HPLOT 156,113 TO 156,111 TO 157,111 TO 157,112 TO 158,112 TO 158,113
  260. 2650  RETURN 
  261. 2660  REM    RO=8,BLOWN UP
  262. 2670  HPLOT 137,85 TO 139,85 TO 140,84 TO 137,84 TO 138,83 TO 140,83 TO 140,82 TO 138,82 TO 137,81 TO 140,81
  263. 2680  HPLOT 140,81 TO 139,80 TO 136,80 TO 135,79 TO 139,79 TO 135,78 TO 139,78 TO 140,77 TO 136,77 TO 137,76 TO 140,76 TO 141,75 TO 138,75
  264. 2690  HPLOT 129,81 TO 129,79 TO 130,79 TO 130,81 TO 131,81 TO 131,72 TO 130,73 TO 130,75 TO 130,74 TO 142,74 TO 143,73 TO 130,73
  265. 2700  HPLOT 131,72 TO 146,72 TO 147,71 TO 133,71 TO 138,70 TO 152,70 TO 152,69 TO 139,69 TO 141,68 TO 151,68 TO 150,67 TO 143,67
  266. 2710  HPLOT 155,73 TO 151,73 TO 150,72 TO 158,72 TO 158,71 TO 150,71
  267. 2720  HPLOT 144,66 TO 152,66 TO 153,65 TO 149,65 TO 149,64 TO 154,64 TO 154,63 TO 150,63 TO 150,62 TO 153,62
  268. 2730  HPLOT 148,65 TO 148,64 TO 147,62 TO 147,66 TO 146,66 TO 146,58 TO 145,58 TO 145,66 TO 144,63 TO 144,59 TO 149,56 TO 150,57 TO 146,60
  269. 2740  RETURN 
  270. 2750  REM    PREP TO RETURN TO PLATOON!
  271. 2760  CALL  -936
  272. 2770 X =  FRE(0)
  273. 2780  IF TU = 1  AND RO = 8  THEN RO = 9
  274. 2790 CL = 0
  275. 2800 GO = 1
  276. 2810  IF SF = 1  THEN GO = 3
  277. 2820  IF VF = 1  THEN GO = 6
  278. 2830  IF TU = 4  AND OP = 6  THEN GO = 8
  279. 2840  IF AUX = 1  AND RR = 1  THEN  PRINT D$;"CHAIN /RAM/RET"
  280. 2850  PRINT D$;"CHAIN RET"